home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / fcbread.arc / FCBEXAM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  2.3 KB  |  49 lines
  1. 10  DEF SEG=&H2100 'Dependent upon your memory
  2. 20  '   This sample program serves as both an example and the documentation
  3. 30  '   for the FCBREAD.BSV routine that will read the directory of a
  4. 40  '   disk and present the matching file name back to the BASIC program.
  5. 50  '   Also available to the program is the directory information that
  6. 60  '   contains the size and time/date information. This routine is
  7. 70  '   faster than OPENing the file since it does not incur that overhead.
  8. 80  '   Also the user can present an arbitrary string to match on.
  9. 90  '
  10. 100  '   To use, BLOAD the routine into any available free memory. It
  11. 110  '   has 2 entry points (INIT and GETNEXT). INIT (offset 2) is used
  12. 120  '   to define the disk drive (0=default, 1=A, 2=B, ....) and the
  13. 130  '   pattern to be used to match on. The pattern MUST BE a string of
  14. 140  '   length 11; the first 8 are the filename and the last 3 are the
  15. 150  '   extension. A "?" is used to match any character. For example to
  16. 160  '   get all the BASIC files on the disk, "????????BAS" would be used
  17. 170  '   as the input parameter. After INIT has been called, calls to
  18. 180  '   GETNEXT (offset 5) are made to retrieve matching file names.
  19. 190  '   The two parameters are the string in which the match is returned
  20. 200  '   (which must be of length 14) and an INTEGER (..%) return value.
  21. 210  '   If the status return is <0, no more matched have been found. If
  22. 220  '   status >=0, it is the FILE ATTRIBUTE (as defined in the DOS Disk
  23. 230  '   Directory).
  24. 240  '
  25. 250  '   The INTEGER value at offsets 0,1 in the routine are the offset
  26. 260  '   to the directory entry for the file. For example, to obtain the
  27. 270  '   DATE information of the file, use the following statements:
  28. 280  '        B% = PEEK(0)+PEEK(1)*256   ' Get offset value
  29. 290  '        FDATE = PEEK(B%+26)*256 + PEEK(B%+25)
  30. 300  '
  31. 310  '   The offsets into the directory entry (25, 26 in this case) are
  32. 320  '   defined in the DOS manual.
  33. 330  '
  34. 340  '   The example program will print all the file names on the current
  35. 350  '   Directory plus their attributes.
  36. 360  BLOAD "fcbread.bsv",0
  37. 370  INIT%=2
  38. 380  GETNEXT%=5
  39. 390  FILENAME$="???????????"
  40. 400  DISK%=2
  41. 410  CALL INIT%(DISK%,FILENAME$)
  42. 420  FILENAME$=SPACE$(14)
  43. 430  CALL GETNEXT%(FILENAME$,STATUS%)
  44. 440  IF STATUS%<0 THEN GOTO 480
  45. 450  PRINT FILENAME$,STATUS%
  46. 460  IF STATUS%>=0 THEN GOTO 420
  47. 470  END
  48. 480  STOP
  49.